home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b9.d64 / src.errorpack < prev    next >
Text File  |  2007-02-28  |  9KB  |  475 lines
  1. ;
  2. ;ERROR MESSAGE PACKAGE
  3. ;
  4. ;BY JESSE KNIGHT
  5. ;
  6. ;WRITTEN: 12/30/84
  7. ;
  8. ;LAST UPDATE:  1/28/85
  9. ;
  10. PAGE=%01010110 ;DEFPAG+ROMMED
  11. IERTXT=$C7E4 ;ERROR MESSAGES ADDR/PAGE
  12. ;
  13. ;
  14. *=$B000
  15. ;
  16. ;
  17.  .BYT PAGE ;GIVE PAGE
  18. ;
  19.  .WORD END ;END OF PACKAGE
  20. ;
  21.  .WORD PSENSE ;SENSE ROUTINE
  22. ;
  23.  .BYT 8,'MYERRORS' ;PACKAGE NAME
  24. ;
  25.  .WORD ZERO ;NO PROCS
  26. ;
  27.  .WORD PKINIT ;PACK INIT ROUTINE
  28. ;
  29. ZERO .BYT 0 ;END OF TABLE
  30. ;
  31. PKINIT LDX #<NMSGS ;SET EMPNTR
  32.  LDA #>NMSGS ;TO NEW ERROR
  33.  LDY #PAGE ;MESSAGES
  34.  STX IERTXT
  35.  STA IERTXT+1
  36.  STY IERTXT+2
  37. PSENSE RTS ;RETURN
  38. ;
  39. NMSGS ;NEW ERROR MESSAGES
  40. ;
  41.  .WORD MG1 ;POINT TO SET 2
  42. ;
  43. MSG0 .BYT 0
  44.  .BYT MSG1-*-1
  45.  .BYT 'REPORT ERROR'
  46. MSG1 .BYT 1
  47.  .BYT MSG2-*-1
  48.  .BYT 'ARGUMENT ERROR'
  49. MSG2 .BYT 2
  50.  .BYT MSG3-*-1
  51.  .BYT 'OVERFLOW'
  52. MSG3 .BYT 3
  53.  .BYT MSG4-*-1
  54.  .BYT 'DIVISION BY ZERO'
  55. MSG4 .BYT 4
  56.  .BYT MSG5-*-1
  57.  .BYT 'SUBSTRING ERROR'
  58. MSG5 .BYT 5
  59.  .BYT MSG6-*-1
  60.  .BYT 'VALUE OUT OF RANGE'
  61. MSG6 .BYT 6
  62.  .BYT MSG7-*-1
  63.  .BYT 'STEP = 0'
  64. MSG7 .BYT 7
  65.  .BYT MSG8-*-1
  66.  .BYT 'ILLEGAL BOUND'
  67. MSG8 .BYT 8
  68.  .BYT MSG10-*-1
  69.  .BYT 'ERROR IN PRINT USING'
  70. MSG10 .BYT 10
  71.  .BYT MSG11-*-1
  72.  .BYT 'INDEX OUT OF RANGE'
  73. MSG11 .BYT 11
  74.  .BYT MSG13-*-1
  75.  .BYT 'INVALID FILE NAME'
  76. ;
  77. MSG13 .BYT 13
  78.  .BYT MSG14-*-1
  79.  .BYT 'VERIFY ERROR'
  80. MSG14 .BYT 14
  81.  .BYT MSG15-*-1
  82.  .BYT 'PROGRAM TOO BIG'
  83. MSG15 .BYT 15
  84.  .BYT MSG16-*-1
  85.  .BYT 'BAD COMAL CODE'
  86. MSG16 .BYT 16
  87.  .BYT MSG17-*-1
  88.  .BYT 'NOT COMAL PROGRAM FILE'
  89. MSG17 .BYT 17
  90.  .BYT MSG18-*-1
  91.  .BYT 'PROGRAM FOR OTHER COMAL VERSION'
  92. MSG18 .BYT 18
  93.  .BYT MSG30-*-1
  94.  .BYT 'UNKNOWN FILE ATTRIBUTE'
  95. ;
  96. ;
  97. ;
  98. MSG30 .BYT 30
  99.  .BYT MSG31-*-1
  100.  .BYT 'ILLEGAL COLOR'
  101. MSG31 .BYT 31
  102.  .BYT MSG32-*-1
  103.  .BYT 'ILLEGAL BOUNDARY'
  104. MSG32 .BYT 32
  105.  .BYT MSG33-*-1
  106.  .BYT 'ILLEGAL SHAPE NUMBER'
  107. MSG33 .BYT 33
  108.  .BYT MSG34-*-1
  109.  .BYT 'SHAPE LENGTH MUST BE 64'
  110. MSG34 .BYT 34
  111.  .BYT MSG35-*-1
  112.  .BYT 'ILLEGAL SPRITE NUMBER'
  113. MSG35 .BYT 35
  114.  .BYT MSG36-*-1
  115.  .BYT 'ILLEGAL VOICE'
  116. MSG36 .BYT 36
  117.  .BYT MSG51-*-1
  118.  .BYT 'ILLEGAL NOTE'
  119. ;
  120. ;
  121. ;
  122. MSG51 .BYT 51
  123.  .BYT MSG52-*-1
  124.  .BYT 'SYSTEM ERROR'
  125. MSG52 .BYT 52
  126.  .BYT MSG53-*-1
  127.  .BYT 'OUT OF MEMORY'
  128. MSG53 .BYT 53
  129.  .BYT MSG54-*-1
  130.  .BYT 'WRONG DIMENSION IN PARAMETER'
  131. MSG54 .BYT 54
  132.  .BYT MSG55-*-1
  133.  .BYT 'PARAMETER MUST BE AN ARRAY'
  134. MSG55 .BYT 55
  135.  .BYT MSG56-*-1
  136.  .BYT 'TOO FEW INDICES'
  137. MSG56 .BYT 56
  138.  .BYT MSG57-*-1
  139.  .BYT 'STRING ASSIGNMENT ERROR'
  140. MSG57 .BYT 57
  141.  .BYT MSG58-*-1
  142.  .BYT 'NOT IMPLEMENTED'
  143. MSG58 .BYT 58
  144.  .BYT MSG59-*-1
  145.  .BYT 'CON NOT POSSIBLE'
  146. MSG59 .BYT 59
  147.  .BYT MSG60-*-1
  148.  .BYT 'PROGRAM HAS BEEN MODIFIED'
  149. MSG60 .BYT 60
  150.  .BYT MSG61-*-1
  151.  .BYT 'TOO MANY INDICES'
  152. MSG61 .BYT 61
  153.  .BYT MSG62-*-1
  154.  .BYT 'FUNCTION VALUE NOT RETURNED'
  155. MSG62 .BYT 62
  156.  .BYT MSG67-*-1
  157.  .BYT 'NOT A VARIABLE'
  158. ;
  159. MSG67 .BYT 67
  160.  .BYT MSG68-*-1
  161.  .BYT 'PARAMETER LISTS DIFFER OR NOT CLOSED'
  162. MSG68 .BYT 68
  163.  .BYT MSG69-*-1
  164.  .BYT 'NO CLOSED PROC/FUNC IN FILE'
  165. MSG69 .BYT 69
  166.  .BYT MSG70-*-1
  167.  .BYT 'TOO FEW PARAMETERS'
  168. MSG70 .BYT 70
  169.  .BYT MSG71-*-1
  170.  .BYT 'WRONG INDEX TYPE'
  171. MSG71 .BYT 71
  172.  .BYT MSG72-*-1
  173.  .BYT 'PARAMETER MUST BE A VARIABLE'
  174. MSG72 .BYT 72
  175.  .BYT MSG73-*-1
  176.  .BYT 'WRONG PARAMETER TYPE'
  177. MSG73 .BYT 73
  178.  .BYT MSG74-*-1
  179.  .BYT 'NON-RAM LOAD'
  180. MSG74 .BYT 74
  181.  .BYT MSG75-*-1
  182.  .BYT 'CHECKSUM ERROR IN OBJECT FILE'
  183. MSG75 .BYT 75
  184.  .BYT MSG76-*-1
  185.  .BYT 'MEMORY AREA IS PROTECTED'
  186. MSG76 .BYT 76
  187.  .BYT MSG77-*-1
  188.  .BYT 'TOO MANY LIBRARIES'
  189. MSG77 .BYT 77
  190.  .BYT MSG78-*-1
  191.  .BYT 'NOT AN OBJECT FILE'
  192. MSG78 .BYT 78
  193.  .BYT MSG79-*-1
  194.  .BYT 'NO MATCHING WHEN'
  195. MSG79 .BYT 79
  196.  .BYT MSG101-*-1
  197.  .BYT 'TOO MANY PARAMETERS'
  198. ;
  199. ;
  200. ;
  201. MSG101 .BYT 101
  202.  .BYT MSG102-*-1
  203.  .BYT 'SYNTAX ERROR'
  204. MSG102 .BYT 102
  205.  .BYT MSG103-*-1
  206.  .BYT 'WRONG TYPE'
  207. MSG103 .BYT 103
  208.  .BYT MSG104-*-1
  209.  .BYT 'STATEMENT TOO LONG OR TOO COMPLICATED'
  210. MSG104 .BYT 104
  211.  .BYT MSG106-*-1
  212.  .BYT 'STATEMENT ONLY, NOT COMMAND'
  213. ;
  214. MSG106 .BYT 106
  215.  .BYT MSG108-*-1
  216.  .BYT 'LINE NUMBER RANGE: 1 TO 9999'
  217. ;
  218. MSG108 .BYT 108
  219.  .BYT MSG109-*-1
  220.  .BYT 'PROCEDURE/FUNCTION DOES NOT EXIST'
  221. MSG109 .BYT 109
  222.  .BYT MSG110-*-1
  223.  .BYT 'STRUCTURED STATEMENT NOT ALLOWED HERE'
  224. MSG110 .BYT 110
  225.  .BYT MSG111-*-1
  226.  .BYT 'NOT A STATEMENT'
  227. MSG111 .BYT 111
  228.  .BYT MSG112-*-1
  229.  .BYT 'LINE NUMBERS WILL EXCEED 9999'
  230. MSG112 .BYT 112
  231.  .BYT MSG113-*-1
  232.  .BYT 'SOURCE PROTECTED!!!'
  233. MSG113 .BYT 113
  234.  .BYT MSG114-*-1
  235.  .BYT 'ILLEGAL CHARACTER'
  236. MSG114 .BYT 114
  237.  .BYT MSG115-*-1
  238.  .BYT 'ERROR IN CONSTANT'
  239. MSG115 .BYT 115
  240.  .BYT MSG200-*-1
  241.  .BYT 'ERROR IN EXPONENT'
  242. ;
  243. ;
  244. ;
  245. MSG200 .BYT 200
  246.  .BYT MSG201-*-1
  247.  .BYT 'END OF DATA'
  248. MSG201 .BYT 201
  249.  .BYT MSG202-*-1
  250.  .BYT 'END OF FILE'
  251. MSG202 .BYT 202
  252.  .BYT MSG203-*-1
  253.  .BYT 'FILE ALREADY OPEN'
  254. MSG203 .BYT 203
  255.  .BYT MSG204-*-1
  256.  .BYT 'FILE NOT OPEN'
  257. MSG204 .BYT 204
  258.  .BYT MSG205-*-1
  259.  .BYT 'NOT INPUT FILE'
  260. MSG205 .BYT 205
  261.  .BYT MSG206-*-1
  262.  .BYT 'NOT OUTPUT FILE'
  263. MSG206 .BYT 206
  264.  .BYT MSG207-*-1
  265.  .BYT 'NUMERIC CONSTANT EXPECTED'
  266. MSG207 .BYT 207
  267.  .BYT MSG208-*-1
  268.  .BYT 'NOT RANDOM ACCESS FILE'
  269. MSG208 .BYT 208
  270.  .BYT MSG209-*-1
  271.  .BYT 'DEVICE NOT PRESENT'
  272. MSG209 .BYT 209
  273.  .BYT MSG210-*-1
  274.  .BYT 'TOO MANY FILES OPEN'
  275. MSG210 .BYT 210
  276.  .BYT MSG211-*-1
  277.  .BYT 'READ ERROR'
  278. MSG211 .BYT 211
  279.  .BYT MSG212-*-1
  280.  .BYT 'WRITE ERROR'
  281. MSG212 .BYT 212
  282.  .BYT MSG213-*-1
  283.  .BYT 'SHORT BLOCK ON TAPE'
  284. MSG213 .BYT 213
  285.  .BYT MSG214-*-1
  286.  .BYT 'LONG BLOCK ON TAPE'
  287. MSG214 .BYT 214
  288.  .BYT MSG215-*-1
  289.  .BYT 'CHECKSUM ERROR ON TAPE'
  290. MSG215 .BYT 215
  291.  .BYT MSG216-*-1
  292.  .BYT 'END OF TAPE'
  293. MSG216 .BYT 216
  294.  .BYT MSG217-*-1
  295.  .BYT 'FILE NOT FOUND'
  296. MSG217 .BYT 217
  297.  .BYT MSG218-*-1
  298.  .BYT 'UNKNOWN DEVICE'
  299. MSG218 .BYT 218
  300.  .BYT MSG219-*-1
  301.  .BYT 'ILLEGAL OPERATION'
  302. MSG219 .BYT 219
  303.  .BYT MSG230-*-1
  304.  .BYT 'I/O BREAK'
  305. ;
  306. ;
  307. ;
  308. MSG230 .BYT 230
  309.  .BYT MSG231-*-1
  310.  .BYT 13,'END AT '
  311. MSG231 .BYT 231
  312.  .BYT MSG232-*-1
  313.  .BYT 13,'STOP AT '
  314. MSG232 .BYT 232
  315.  .BYT MSG233-*-1
  316.  .BYT ' BYTES FREE.',13,13
  317. MSG233 .BYT 233
  318.  .BYT MSG242-*-1
  319.  .BYT 'ERROR'
  320. ;
  321. ;
  322. ;
  323. MSG242 .BYT 242
  324.  .BYT MSG243-*-1
  325.  .BYT 'AT '
  326. MSG243 .BYT 243
  327.  .BYT MSG244-*-1
  328.  .BYT 'PROG  DATA  FREE',13
  329. MSG244 .BYT 244
  330.  .BYT MSG245-*-1
  331.  .BYT 'THE PROGRAM STOPPED AT'
  332. MSG245 .BYT 245
  333.  .BYT MSG246-*-1
  334.  .BYT 'WHICH IS CALLED AT'
  335. MSG246 .BYT 246
  336.  .BYT MSG255-*-1
  337.  .BYT 'WITHIN'
  338. ;
  339. ;
  340. MSG255 .BYT 255 ;MARKER FOR SET 1 END ???
  341. ;
  342. ;
  343. MG1 .BYT MG2-*-1
  344.  .BYT 249
  345. MG2 .BYT MG3-*-1
  346.  .BYT 250
  347. ;
  348. MG3 .BYT MG4-*-1
  349.  .BYT 97,' OR ',95
  350. MG4 .BYT MG5-*-1
  351.  .BYT 'UNKNOWN LABEL'
  352. MG5 .BYT MG6-*-1
  353.  .BYT 'NAME ALREADY DEFINED'
  354. MG6 .BYT MG7-*-1
  355.  .BYT 'NOT A LABEL'
  356. MG7 .BYT MG8-*-1
  357.  .BYT 'STRING NOT DIMENSIONED'
  358. MG8 .BYT MG9-*-1
  359.  .BYT 'NOT A PACKAGE'
  360. MG9 .BYT MG10-*-1
  361.  .BYT 'EXPRESSION'
  362. MG10 .BYT MG11-*-1
  363.  .BYT 'VARIABLE'
  364. MG11 .BYT MG12-*-1
  365.  .BYT 'OPERAND'
  366. MG12 .BYT MG13-*-1
  367.  .BYT 'VARIABLE NAME'
  368. MG13 .BYT MG14-*-1
  369.  .BYT 'NUM. VARIABLE NAME'
  370. MG14 .BYT MG15-*-1
  371.  .BYT 'NUMERIC EXPRESSION'
  372. MG15 .BYT MG16-*-1
  373.  .BYT 'STRING EXPRESSION'
  374. MG16 .BYT MG17-*-1
  375.  .BYT 198,' OR ',96
  376. MG17 .BYT MG18-*-1
  377.  .BYT 97,' OR ',202
  378. MG18 .BYT MG19-*-1
  379.  .BYT 198,' OR ',199
  380. MG19 .BYT MG20-*-1
  381.  .BYT 203,' OR ',205
  382. MG20 .BYT MG21-*-1
  383.  .BYT 'MODE'
  384. MG21 .BYT MG22-*-1
  385.  .BYT 'CONSTANT'
  386. MG22 .BYT MG23-*-1
  387.  .BYT 'LINE NUMBER'
  388. MG23 .BYT MG24-*-1
  389.  .BYT 'BINARY CONSTANT'
  390. MG24 .BYT MG25-*-1
  391.  .BYT 'LABEL'
  392. MG25 .BYT MG26-*-1
  393.  .BYT 113,'/',114,'/',117
  394. MG26 .BYT MG27-*-1
  395.  .BYT 117
  396. MG27 .BYT MG28-*-1
  397.  .BYT 118
  398. MG28 .BYT MG29-*-1
  399.  .BYT 240
  400. MG29 .BYT MG30-*-1
  401.  .BYT 245
  402. MG30 .BYT MG31-*-1
  403.  .BYT 176
  404. MG31 .BYT MG32-*-1
  405.  .BYT 119
  406. MG32 .BYT MG33-*-1
  407.  .BYT 178,'/',147,'/',116
  408. MG33 .BYT MG34-*-1
  409.  .BYT 178,'/',147,'/',116
  410. MG34 .BYT MG35-*-1
  411.  .BYT 116
  412. MG35 .BYT MG36-*-1
  413.  .BYT ' NOT EXPECTED'
  414. MG36 .BYT MG37-*-1
  415.  .BYT ' MISSING'
  416. MG37 .BYT MG38-*-1
  417.  .BYT ' EXPECTED, NOT '
  418. MG38 .BYT MG39-*-1
  419.  .BYT 'REAL CONSTANT'
  420. MG39 .BYT MG40-*-1
  421.  .BYT 'INTEGER CONSTANT'
  422. MG40 .BYT MG41-*-1
  423.  .BYT 'STRING CONSTANT'
  424. MG41 .BYT MG42-*-1
  425.  .BYT 'NAME'
  426. MG42 .BYT MG43-*-1
  427.  .BYT 'INTEGER NAME'
  428. MG43 .BYT MG44-*-1
  429.  .BYT 'STRING NAME'
  430. MG44 .BYT MG45-*-1
  431.  .BYT ' NOT ALLOWED IN CONTROL STRUCTURES'
  432. MG45 .BYT MG46-*-1
  433.  .BYT ' WITHOUT '
  434. MG46 .BYT MG47-*-1
  435.  .BYT 244
  436. MG47 .BYT MG48-*-1
  437.  .BYT 178
  438. MG48 .BYT MG49-*-1
  439.  .BYT 226,' ALLOWED IN CLOSED PROC/FUNC ONLY'
  440. MG49 .BYT MG50-*-1
  441.  .BYT 'WRONG TYPE OF '
  442. MG50 .BYT MG51-*-1
  443.  .BYT 'WRONG NAME IN '
  444. MG51 .BYT MG52-*-1
  445.  .BYT 104,' OR ',206
  446. MG52 .BYT MG53-*-1
  447.  .BYT 'HEX CONSTANT'
  448. MG53 .BYT MG54-*-1
  449.  .BYT 'ILLEGAL ',128
  450. MG54 .BYT MG55-*-1
  451.  .BYT 'UNKNOWN STATEMENT OR PROCEDURE'
  452. MG55 .BYT MG56-*-1
  453.  .BYT 'NOT A PROCEDURE'
  454. MG56 .BYT MG57-*-1
  455.  .BYT 'UNKNOWN VARIABLE'
  456. MG57 .BYT MG58-*-1
  457.  .BYT 'WRONG TYPE'
  458. MG58 .BYT MG59-*-1
  459.  .BYT 'WRONG FUNCTION TYPE'
  460. MG59 .BYT MG60-*-1
  461.  .BYT 'NOT AN ARRAY NOR A FUNCTION'
  462. MG60 .BYT MG61-*-1
  463.  .BYT 'NOT A SIMPLE VARIABLE'
  464. MG61 .BYT MG62-*-1
  465.  .BYT 'UNKNOWN ARRAY OR FUNCTION'
  466. MG62 .BYT MG63-*-1
  467.  .BYT 'WRONG ARRAY TYPE'
  468. MG63 .BYT MG64-*-1
  469.  .BYT 'IMPORT ERROR'
  470. MG64 .BYT MG65-*-1
  471.  .BYT 'UNKNOWN PACKAGE'
  472. MG65
  473. ;
  474. END .END
  475.